home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 25 / Cream of the Crop 25.iso / educate / perlb161.zip / PERLIB32.EXE / 0 / RCDATA / TFRMPERIODICLIBRARY / TFRMPERIODICLIBRARY.txt < prev   
Text File  |  1997-04-27  |  18KB  |  647 lines
  1. object frmPeriodicLibrary: TfrmPeriodicLibrary
  2.   Left = 269
  3.   Top = 113
  4.   HelpContext = 1
  5.   HorzScrollBar.Visible = False
  6.   VertScrollBar.Visible = False
  7.   AutoScroll = False
  8.   Caption = 'BK Periodic Library v1.61'
  9.   ClientHeight = 339
  10.   ClientWidth = 538
  11.   Font.Color = clWindowText
  12.   Font.Height = -13
  13.   Font.Name = 'MS Sans Serif'
  14.   Font.Style = []
  15.   Icon.Data = {<image000.ico>}
  16.   KeyPreview = True
  17.   Menu = MainMenu
  18.   Position = poDefault
  19.   Visible = True
  20.   OnClose = FormClose
  21.   OnCreate = FormCreate
  22.   OnKeyDown = FormKeyDown
  23.   OnResize = FormResize
  24.   OnShow = FormShow
  25.   PixelsPerInch = 120
  26.   TextHeight = 16
  27.   object pntBackGround: TPaintBox
  28.     Left = 0
  29.     Top = 36
  30.     Width = 538
  31.     Height = 280
  32.     Align = alClient
  33.     OnMouseMove = ClearStatus
  34.     OnPaint = BackgroundPaint
  35.   end
  36.   object imgWallpaper: TImage
  37.     Left = 420
  38.     Top = 134
  39.     Width = 110
  40.     Height = 106
  41.     Visible = False
  42.   end
  43.   object PeriodicTable: TPanel
  44.     Left = 21
  45.     Top = 61
  46.     Width = 450
  47.     Height = 214
  48.     BevelInner = bvLowered
  49.     BorderWidth = 1
  50.     BorderStyle = bsSingle
  51.     Ctl3D = False
  52.     Font.Color = clWindowText
  53.     Font.Height = -13
  54.     Font.Name = 'MS Sans Serif'
  55.     Font.Style = []
  56.     ParentColor = True
  57.     ParentCtl3D = False
  58.     ParentFont = False
  59.     TabOrder = 2
  60.     Visible = False
  61.     OnMouseDown = TableMouseDown
  62.     OnMouseMove = ClearStatus
  63.     OnResize = PeriodicTableResize
  64.     object pntGroupLines: TPaintBox
  65.       Left = 281
  66.       Top = 83
  67.       Width = 157
  68.       Height = 57
  69.       OnMouseDown = TableMouseDown
  70.       OnMouseMove = ClearStatus
  71.       OnPaint = LinesPaint
  72.     end
  73.     object pntElementLines: TPaintBox
  74.       Left = 195
  75.       Top = 145
  76.       Width = 157
  77.       Height = 57
  78.       Color = clBtnFace
  79.       ParentColor = False
  80.       OnMouseDown = TableMouseDown
  81.       OnMouseMove = ClearStatus
  82.       OnPaint = LinesPaint
  83.     end
  84.     object panLegend: TPanel
  85.       Left = 16
  86.       Top = 10
  87.       Width = 138
  88.       Height = 70
  89.       BevelOuter = bvNone
  90.       BorderStyle = bsSingle
  91.       Ctl3D = True
  92.       ParentColor = True
  93.       ParentCtl3D = False
  94.       TabOrder = 0
  95.       OnDblClick = LegendDblClick
  96.       OnMouseDown = TableMouseDown
  97.       OnMouseMove = Status
  98.       object lblMetals: TLabel
  99.         Left = 3
  100.         Top = 2
  101.         Width = 40
  102.         Height = 16
  103.         AutoSize = False
  104.         Caption = 'Metals'
  105.         Font.Color = clRed
  106.         Font.Height = -13
  107.         Font.Name = 'MS Sans Serif'
  108.         Font.Style = []
  109.         ParentFont = False
  110.         Transparent = True
  111.         OnDblClick = LegendDblClick
  112.         OnMouseDown = TableMouseDown
  113.         OnMouseMove = Status
  114.       end
  115.       object lblNonMetals: TLabel
  116.         Left = 3
  117.         Top = 18
  118.         Width = 65
  119.         Height = 16
  120.         AutoSize = False
  121.         Caption = 'Nonmetals'
  122.         Font.Color = clBlue
  123.         Font.Height = -13
  124.         Font.Name = 'MS Sans Serif'
  125.         Font.Style = []
  126.         ParentFont = False
  127.         Transparent = True
  128.         OnDblClick = LegendDblClick
  129.         OnMouseDown = TableMouseDown
  130.         OnMouseMove = Status
  131.       end
  132.       object lblSemimetals: TLabel
  133.         Left = 3
  134.         Top = 34
  135.         Width = 71
  136.         Height = 16
  137.         AutoSize = False
  138.         Caption = 'Semimetals'
  139.         Font.Color = clPurple
  140.         Font.Height = -13
  141.         Font.Name = 'MS Sans Serif'
  142.         Font.Style = []
  143.         ParentFont = False
  144.         Transparent = True
  145.         OnDblClick = LegendDblClick
  146.         OnMouseDown = TableMouseDown
  147.         OnMouseMove = Status
  148.       end
  149.       object lblGases: TLabel
  150.         Left = 89
  151.         Top = 34
  152.         Width = 40
  153.         Height = 16
  154.         AutoSize = False
  155.         Caption = 'Gases'
  156.         Font.Color = clYellow
  157.         Font.Height = -13
  158.         Font.Name = 'MS Sans Serif'
  159.         Font.Style = []
  160.         ParentFont = False
  161.         Transparent = True
  162.         OnDblClick = LegendDblClick
  163.         OnMouseDown = TableMouseDown
  164.         OnMouseMove = Status
  165.       end
  166.       object lblLiquids: TLabel
  167.         Left = 89
  168.         Top = 18
  169.         Width = 43
  170.         Height = 16
  171.         AutoSize = False
  172.         Caption = 'Liquids'
  173.         Font.Color = clGreen
  174.         Font.Height = -13
  175.         Font.Name = 'MS Sans Serif'
  176.         Font.Style = []
  177.         ParentFont = False
  178.         Transparent = True
  179.         OnDblClick = LegendDblClick
  180.         OnMouseDown = TableMouseDown
  181.         OnMouseMove = Status
  182.       end
  183.       object lblSolids: TLabel
  184.         Left = 89
  185.         Top = 2
  186.         Width = 38
  187.         Height = 16
  188.         AutoSize = False
  189.         Caption = 'Solids'
  190.         Font.Color = clBlack
  191.         Font.Height = -13
  192.         Font.Name = 'MS Sans Serif'
  193.         Font.Style = []
  194.         ParentFont = False
  195.         Transparent = True
  196.         OnDblClick = LegendDblClick
  197.         OnMouseDown = TableMouseDown
  198.         OnMouseMove = Status
  199.       end
  200.       object lblUndefined: TLabel
  201.         Left = 3
  202.         Top = 49
  203.         Width = 62
  204.         Height = 16
  205.         AutoSize = False
  206.         Caption = 'Undefined'
  207.         Font.Color = clGray
  208.         Font.Height = -13
  209.         Font.Name = 'MS Sans Serif'
  210.         Font.Style = []
  211.         ParentFont = False
  212.         Transparent = True
  213.         OnDblClick = LegendDblClick
  214.         OnMouseDown = TableMouseDown
  215.         OnMouseMove = Status
  216.       end
  217.     end
  218.   end
  219.   object ToolBar: TPanel
  220.     Left = 0
  221.     Top = 0
  222.     Width = 538
  223.     Height = 36
  224.     Align = alTop
  225.     BevelOuter = bvNone
  226.     TabOrder = 0
  227.     OnMouseMove = ClearStatus
  228.     OnResize = ToolsResize
  229.     object ToolBarBevel: TBevel
  230.       Left = 0
  231.       Top = 0
  232.       Width = 538
  233.       Height = 3
  234.       Align = alTop
  235.       Shape = bsTopLine
  236.     end
  237.     object butElementInfo: TSpeedButton
  238.       Left = 41
  239.       Top = 4
  240.       Width = 28
  241.       Height = 28
  242.       Hint = 'Element Info'
  243.       Glyph.Data = {
  244.         F6000000424DF600000000000000760000002800000010000000100000000100
  245.         04000000000080000000CE0E0000D80E00000000000000000000000000000000
  246.         80000080000000808000800000008000800080800000C0C0C000808080000000
  247.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  248.         777777777777777777777777777777777777777777FFFF7777777777772222F7
  249.         7777777777722F777777777777722F777777777777722F777777777777F22F77
  250.         7777777777222777777777777777FF777777777777722F777777777777722777
  251.         7777777777777777777777777777777777777777777777777777}
  252.       ParentShowHint = False
  253.       ShowHint = True
  254.       OnClick = MenuClick
  255.       OnMouseMove = Status
  256.     end
  257.     object butHelp: TSpeedButton
  258.       Left = 163
  259.       Top = 4
  260.       Width = 28
  261.       Height = 28
  262.       Hint = 'Help'
  263.       Glyph.Data = {
  264.         F6000000424DF600000000000000760000002800000010000000100000000100
  265.         04000000000080000000CE0E0000D80E00000000000000000000000000000000
  266.         80000080000000808000800000008000800080800000C0C0C000808080000000
  267.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  268.         7777777777777777777777777777777777777777777FF777777777777733F777
  269.         777777777733777777777777777FF777777777777733F777777777777733F777
  270.         7777777777733F77777777777F7733F77777777733FF33F77777777773333F77
  271.         7777777777777777777777777777777777777777777777777777}
  272.       ParentShowHint = False
  273.       ShowHint = True
  274.       OnClick = MenuClick
  275.       OnMouseMove = Status
  276.     end
  277.     object butAbout: TSpeedButton
  278.       Left = 191
  279.       Top = 4
  280.       Width = 28
  281.       Height = 28
  282.       Hint = 'About'
  283.       Glyph.Data = {
  284.         F6000000424DF600000000000000760000002800000010000000100000000100
  285.         04000000000080000000CE0E0000D80E00000000000000000000000000000000
  286.         80000080000000808000800000008000800080800000C0C0C000808080000000
  287.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  288.         7777777777777777777777777777777777777FFFFFF7777777770000000F70F7
  289.         77700F777770F0F7770F0F777770F0F770F70F7777F0F0F70F770F7FFF00F0F0
  290.         F7770F700077700F77770F770F7770F0F7770FFF077770F70F770000777770F7
  291.         70F7777777777777777777777777777777777777777777777777}
  292.       ParentShowHint = False
  293.       ShowHint = True
  294.       OnClick = MenuClick
  295.       OnMouseMove = Status
  296.     end
  297.     object butColor: TSpeedButton
  298.       Left = 8
  299.       Top = 4
  300.       Width = 28
  301.       Height = 28
  302.       Hint = 'Setup Colors'
  303.       Glyph.Data = {
  304.         F6000000424DF600000000000000760000002800000010000000100000000100
  305.         0400000000008000000000000000000000001000000010000000000000000000
  306.         80000080000000808000800000008000800080800000C0C0C000808080000000
  307.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  308.         77777117227447997CC77117227447997CC77117227447997CC7711722744799
  309.         7CC77117227447997CC77117227447997CC77117227447997CC7711722744799
  310.         7CC77117227447997CC77117227447997CC77117227447997CC7711722744799
  311.         7CC77117227447997CC77117227447997CC77777777777777777}
  312.       ParentShowHint = False
  313.       ShowHint = True
  314.       OnClick = MenuClick
  315.       OnMouseMove = Status
  316.     end
  317.     object butFind: TSpeedButton
  318.       Left = 69
  319.       Top = 4
  320.       Width = 28
  321.       Height = 28
  322.       Hint = 'Find Element'
  323.       Glyph.Data = {
  324.         F6000000424DF600000000000000760000002800000010000000100000000100
  325.         0400000000008000000084120000841200000000000000000000000000000000
  326.         80000080000000808000800000008000800080800000C0C0C000808080000000
  327.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  328.         1711777777777771711177777777771711177777777771711177777700001711
  329.         17777700777F8111777770877777F8087777707777777F077777077777777770
  330.         7777077777777770777707F777777770777707F777777770777770FF77777707
  331.         7777708FFF777807777777007777007777777777000077777777}
  332.       ParentShowHint = False
  333.       ShowHint = True
  334.       OnClick = MenuClick
  335.       OnMouseMove = Status
  336.     end
  337.     object butTemperature: TSpeedButton
  338.       Left = 97
  339.       Top = 4
  340.       Width = 28
  341.       Height = 28
  342.       Hint = 'Set Temperature'
  343.       Glyph.Data = {
  344.         F6000000424DF600000000000000760000002800000010000000100000000100
  345.         0400000000008000000084120000841200000000000000000000000000000000
  346.         80000080000000808000800000008000800080800000C0C0C000808080000000
  347.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777000777
  348.         7777777770888077777777770888880777777777088888077777777708888807
  349.         7777777770888077777777777708077777777777770807777777777777060777
  350.         77777777770807777777777777080777777777777706077777777777770F0777
  351.         77777777770F0777777777777706077777777777770F07777777}
  352.       ParentShowHint = False
  353.       ShowHint = True
  354.       OnClick = MenuClick
  355.       OnMouseMove = Status
  356.     end
  357.     object butGraph: TSpeedButton
  358.       Left = 130
  359.       Top = 4
  360.       Width = 28
  361.       Height = 28
  362.       Hint = 'Graph Trends'
  363.       Glyph.Data = {
  364.         F6000000424DF600000000000000760000002800000010000000100000000100
  365.         0400000000008000000000000000000000001000000010000000000000000000
  366.         80000080000000808000800000008000800080800000C0C0C000808080000000
  367.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777770000007
  368.         7777777777700777777777777770077777777777770000777777777777700777
  369.         7777077777700777777007707770077707700000000000000000000000000000
  370.         0000077077700777077007777770077777707777777007777777777777000077
  371.         7777777777700777777777777770077777777777700000077777}
  372.       ParentShowHint = False
  373.       ShowHint = True
  374.       OnClick = MenuClick
  375.       OnMouseMove = Status
  376.     end
  377.     object TempSlider: TScrollBar
  378.       Left = 228
  379.       Top = 7
  380.       Width = 303
  381.       Height = 20
  382.       Hint = 'Temperature Slider'
  383.       Ctl3D = True
  384.       LargeChange = 100
  385.       Max = 6000
  386.       ParentCtl3D = False
  387.       ParentShowHint = False
  388.       ShowHint = True
  389.       TabOrder = 0
  390.       TabStop = False
  391.       OnChange = UpdateTempStatus
  392.     end
  393.   end
  394.   object StatusBar: TStatusBar
  395.     Left = 0
  396.     Top = 316
  397.     Width = 538
  398.     Height = 23
  399.     Panels = <
  400.       item
  401.         Width = 50
  402.       end
  403.       item
  404.         Width = 50
  405.       end>
  406.     SimplePanel = False
  407.     OnResize = ToolsResize
  408.   end
  409.   object MainMenu: TMainMenu
  410.     Left = 480
  411.     Top = 52
  412.     object FileMenu: TMenuItem
  413.       Caption = '&File'
  414.       ShortCut = 0
  415.       OnClick = MenuClick
  416.       object mnuSaveConfigNow: TMenuItem
  417.         Caption = '&Save Config &Now'
  418.         ShortCut = 0
  419.         OnClick = MenuClick
  420.       end
  421.       object mnuSaveConfigOnExit: TMenuItem
  422.         Caption = 'Save Config On &Exit'
  423.         Checked = True
  424.         ShortCut = 0
  425.         OnClick = MenuClick
  426.       end
  427.       object N2: TMenuItem
  428.         Caption = '-'
  429.         ShortCut = 0
  430.       end
  431.       object mnuExit: TMenuItem
  432.         Caption = 'E&xit'
  433.         ShortCut = 0
  434.         OnClick = MenuClick
  435.       end
  436.     end
  437.     object ViewMenu: TMenuItem
  438.       Caption = '&View'
  439.       ShortCut = 0
  440.       object mnuToolbar: TMenuItem
  441.         Caption = '&Toolbar'
  442.         Checked = True
  443.         ShortCut = 0
  444.         OnClick = MenuClick
  445.       end
  446.       object mnuStatusBar: TMenuItem
  447.         Caption = 'Status &Bar'
  448.         Checked = True
  449.         ShortCut = 0
  450.         OnClick = MenuClick
  451.       end
  452.       object N8: TMenuItem
  453.         Caption = '-'
  454.         ShortCut = 0
  455.       end
  456.       object mnuElementOnTop: TMenuItem
  457.         Caption = '&Element Info On Top'
  458.         ShortCut = 0
  459.         OnClick = MenuClick
  460.       end
  461.       object mnuTrendsOnTop: TMenuItem
  462.         Caption = '&Trends Graph On Top'
  463.         ShortCut = 0
  464.         OnClick = MenuClick
  465.       end
  466.       object N7: TMenuItem
  467.         Caption = '-'
  468.         ShortCut = 0
  469.       end
  470.       object mnuOptions: TMenuItem
  471.         Caption = '&Options...'
  472.         ShortCut = 0
  473.         OnClick = MenuClick
  474.       end
  475.     end
  476.     object ElementMenu: TMenuItem
  477.       Caption = '&Element'
  478.       ShortCut = 0
  479.       object mnuFindElement: TMenuItem
  480.         Caption = '&Find Element...'
  481.         ShortCut = 16454
  482.         OnClick = MenuClick
  483.       end
  484.       object mnuSetTemperature: TMenuItem
  485.         Caption = 'Set &Temperature...'
  486.         ShortCut = 16468
  487.         OnClick = MenuClick
  488.       end
  489.       object N3: TMenuItem
  490.         Caption = '-'
  491.         ShortCut = 0
  492.       end
  493.       object mnuElementInfo: TMenuItem
  494.         Caption = 'Element &Information'
  495.         ShortCut = 16457
  496.         OnClick = MenuClick
  497.       end
  498.     end
  499.     object TrendsMenu: TMenuItem
  500.       Caption = '&Trends'
  501.       ShortCut = 0
  502.       object mnuNone: TMenuItem
  503.         Caption = '&None'
  504.         Checked = True
  505.         RadioItem = True
  506.         ShortCut = 0
  507.         OnClick = MenuTrendsClick
  508.       end
  509.       object mnuAtomicRadius: TMenuItem
  510.         Caption = 'Atomic &Radius'
  511.         RadioItem = True
  512.         ShortCut = 0
  513.         OnClick = MenuTrendsClick
  514.       end
  515.       object mnuAtomicVolume: TMenuItem
  516.         Caption = 'Atomic &Volume'
  517.         RadioItem = True
  518.         ShortCut = 0
  519.         OnClick = MenuTrendsClick
  520.       end
  521.       object mnuAtomicWeight: TMenuItem
  522.         Caption = 'Atomic &Weight'
  523.         RadioItem = True
  524.         ShortCut = 0
  525.         OnClick = MenuTrendsClick
  526.       end
  527.       object mnuBoilingPoint: TMenuItem
  528.         Caption = '&Boiling Point'
  529.         RadioItem = True
  530.         ShortCut = 0
  531.         OnClick = MenuTrendsClick
  532.       end
  533.       object mnuCovalentRadius: TMenuItem
  534.         Caption = '&Covalent Radius'
  535.         RadioItem = True
  536.         ShortCut = 0
  537.         OnClick = MenuTrendsClick
  538.       end
  539.       object mnuDensity: TMenuItem
  540.         Caption = '&Density'
  541.         RadioItem = True
  542.         ShortCut = 0
  543.         OnClick = MenuTrendsClick
  544.       end
  545.       object mnuElectroConduct: TMenuItem
  546.         Caption = '&Electrical Conductivity'
  547.         RadioItem = True
  548.         ShortCut = 0
  549.         OnClick = MenuTrendsClick
  550.       end
  551.       object mnuElectroneg: TMenuItem
  552.         Caption = 'Electro&negativity'
  553.         RadioItem = True
  554.         ShortCut = 0
  555.         OnClick = MenuTrendsClick
  556.       end
  557.       object mnuFirstIonPoten: TMenuItem
  558.         Caption = '&First Ionization Potential'
  559.         RadioItem = True
  560.         ShortCut = 0
  561.         OnClick = MenuTrendsClick
  562.       end
  563.       object mnuHeatFusion: TMenuItem
  564.         Caption = '&Heat of Fusion'
  565.         RadioItem = True
  566.         ShortCut = 0
  567.         OnClick = MenuTrendsClick
  568.       end
  569.       object mnuHeatVapor: TMenuItem
  570.         Caption = 'Heat of &Vaporization'
  571.         RadioItem = True
  572.         ShortCut = 0
  573.         OnClick = MenuTrendsClick
  574.       end
  575.       object mnuMeltingPoint: TMenuItem
  576.         Caption = '&Melting Point'
  577.         RadioItem = True
  578.         ShortCut = 0
  579.         OnClick = MenuTrendsClick
  580.       end
  581.       object mnuSpecificHeat: TMenuItem
  582.         Caption = '&Specific Heat'
  583.         RadioItem = True
  584.         ShortCut = 0
  585.         OnClick = MenuTrendsClick
  586.       end
  587.       object mnuThermalConduct: TMenuItem
  588.         Caption = '&Thermal Conductivity'
  589.         RadioItem = True
  590.         ShortCut = 0
  591.         OnClick = MenuTrendsClick
  592.       end
  593.       object N4: TMenuItem
  594.         Caption = '-'
  595.         ShortCut = 0
  596.       end
  597.       object mnuGraph: TMenuItem
  598.         Caption = '&Graph Trends'
  599.         ShortCut = 0
  600.         OnClick = MenuClick
  601.       end
  602.     end
  603.     object HelpMenu: TMenuItem
  604.       Caption = '&Help'
  605.       ShortCut = 0
  606.       object mnuHelpContents: TMenuItem
  607.         Caption = 'Help &Contents'
  608.         ShortCut = 112
  609.         OnClick = MenuClick
  610.       end
  611.       object mnuAbout: TMenuItem
  612.         Caption = '&About BK Periodic Library...'
  613.         ShortCut = 0
  614.         OnClick = MenuClick
  615.       end
  616.     end
  617.   end
  618.   object PopupMenu: TPopupMenu
  619.     Left = 488
  620.     Top = 92
  621.     object mnuElementInfoPop: TMenuItem
  622.       Caption = '&Element Information'
  623.       ShortCut = 0
  624.       OnClick = MenuClick
  625.     end
  626.     object N6: TMenuItem
  627.       Caption = '-'
  628.       ShortCut = 0
  629.     end
  630.     object mnuFindPop: TMenuItem
  631.       Caption = '&Find Element...'
  632.       ShortCut = 0
  633.       OnClick = MenuClick
  634.     end
  635.     object mnuTempPop: TMenuItem
  636.       Caption = 'Change &Temperature...'
  637.       ShortCut = 0
  638.       OnClick = MenuClick
  639.     end
  640.     object mnuColorPop: TMenuItem
  641.       Caption = 'Setup &Colours...'
  642.       ShortCut = 0
  643.       OnClick = MenuClick
  644.     end
  645.   end
  646. end
  647.